inherited fmAddEditDoljnost: TfmAddEditDoljnost
  Left = 438
  Top = 210
  Width = 1408
  Height = 731
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1076#1086#1083#1078#1085#1086#1089#1090#1077#1081
  Constraints.MinHeight = 731
  Constraints.MinWidth = 1408
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 677
    Width = 1400
  end
  inherited Panel1: TPanel
    Width = 1400
    TabOrder = 1
    TabStop = True
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 1214
    end
    inherited BitBtn2: TBitBtn
      Left = 1302
    end
  end
  object cxSplitter2: TcxSplitter [2]
    Left = 713
    Top = 45
    Width = 8
    Height = 632
    HotZoneClassName = 'TcxMediaPlayer9Style'
    HotZone.SizePercent = 80
    Control = Panel8
  end
  object Panel8: TPanel [3]
    Left = 0
    Top = 45
    Width = 713
    Height = 654
    Align = alLeft
    BevelOuter = bvNone
    Caption = 'Panel8'
    TabOrder = 3
    object Panel7: TPanel
      Left = 0
      Top = 0
      Width = 713
      Height = 33
      Align = alTop
      TabOrder = 0
      DesignSize = (
        713
        33)
      object bEdit: TcxButton
        Left = 7
        Top = 4
        Width = 98
        Height = 25
        Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100
        TabOrder = 0
        OnClick = bEditClick
        LookAndFeel.SkinName = 'Office2007Blue'
      end
      object bSave: TcxButton
        Left = 494
        Top = 3
        Width = 98
        Height = 25
        Anchors = [akTop, akRight]
        Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1074' '#1041#1044
        Enabled = False
        TabOrder = 1
        OnClick = bSaveClick
        LookAndFeel.SkinName = 'Office2007Blue'
      end
      object bCancel: TcxButton
        Left = 598
        Top = 3
        Width = 98
        Height = 25
        Anchors = [akTop, akRight]
        Caption = #1054#1090#1084#1077#1085#1072
        Enabled = False
        TabOrder = 2
        OnClick = bCancelClick
        LookAndFeel.SkinName = 'Office2007Blue'
      end
      object bCreateDoljnost: TcxButton
        Left = 111
        Top = 4
        Width = 122
        Height = 25
        Caption = #1057#1086#1079#1076#1072#1090#1100' '#1076#1086#1083#1078#1085#1086#1089#1090#1100
        Enabled = False
        TabOrder = 3
        OnClick = bCreateDoljnostClick
        LookAndFeel.SkinName = 'Office2007Green'
      end
    end
    object Panel_SD: TPanel
      Left = 0
      Top = 33
      Width = 713
      Height = 621
      Align = alClient
      BevelOuter = bvNone
      Constraints.MinHeight = 621
      Constraints.MinWidth = 713
      TabOrder = 1
      object tbTop: TToolBar
        Left = 0
        Top = 0
        Width = 713
        AutoSize = True
        BorderWidth = 2
        ButtonWidth = 28
        EdgeInner = esNone
        EdgeOuter = esNone
        Enabled = False
        Images = DMInv.ilActive
        TabOrder = 0
        TabStop = True
        Transparent = True
        object tbInsert: TToolButton
          Left = 0
          Top = 2
          Hint = #1044#1086#1073#1072#1074#1080#1090#1100
          Enabled = False
          ImageIndex = 30
          ParentShowHint = False
          ShowHint = True
          OnClick = tbInsertClick
        end
        object tbInsertChild: TToolButton
          Left = 28
          Top = 2
          Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1086#1090#1086#1084#1082#1072
          Caption = 'tbInsertChild'
          Enabled = False
          ImageIndex = 32
          ParentShowHint = False
          ShowHint = True
          OnClick = tbInsertChildClick
        end
        object tbDelete: TToolButton
          Left = 56
          Top = 2
          Hint = #1059#1076#1072#1083#1080#1090#1100
          Enabled = False
          ImageIndex = 29
          ParentShowHint = False
          ShowHint = True
          OnClick = tbDeleteClick
        end
        object tbEdit: TToolButton
          Left = 84
          Top = 2
          Hint = #1048#1079#1084#1077#1085#1080#1090#1100
          Enabled = False
          ImageIndex = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = tbEditClick
        end
        object ToolButton3: TToolButton
          Left = 112
          Top = 2
          Width = 8
          Caption = 'ToolButton3'
          Enabled = False
          ImageIndex = 2
          Style = tbsSeparator
        end
        object cbType: TComboBox
          Left = 120
          Top = 2
          Width = 233
          Height = 21
          AutoDropDown = True
          Style = csDropDownList
          DropDownCount = 25
          ItemHeight = 13
          TabOrder = 0
          OnChange = cbTypeChange
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 32
        Width = 713
        Height = 46
        Align = alTop
        TabOrder = 1
        TabStop = True
        Visible = False
        DesignSize = (
          713
          46)
        object edSDNAME: TcxDBTextEdit
          Left = 9
          Top = 13
          DataBinding.DataField = 'SDNAME'
          DataBinding.DataSource = dlgDS
          TabOrder = 0
          Width = 250
        end
        object btSave: TBitBtn
          Left = 504
          Top = 10
          Width = 92
          Height = 25
          Anchors = [akTop, akRight]
          Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
          Default = True
          TabOrder = 2
          OnClick = btSaveClick
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333330000333333333333333333333333F33333333333
            00003333344333333333333333388F3333333333000033334224333333333333
            338338F3333333330000333422224333333333333833338F3333333300003342
            222224333333333383333338F3333333000034222A22224333333338F338F333
            8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
            33333338F83338F338F33333000033A33333A222433333338333338F338F3333
            0000333333333A222433333333333338F338F33300003333333333A222433333
            333333338F338F33000033333333333A222433333333333338F338F300003333
            33333333A222433333333333338F338F00003333333333333A22433333333333
            3338F38F000033333333333333A223333333333333338F830000333333333333
            333A333333333333333338330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
        object btCancel: TBitBtn
          Left = 608
          Top = 10
          Width = 89
          Height = 25
          Anchors = [akTop, akRight]
          Cancel = True
          Caption = #1054#1090#1084#1077#1085#1080#1090#1100
          TabOrder = 1
          OnClick = btCancelClick
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333333333000033338833333333333333333F333333333333
            0000333911833333983333333388F333333F3333000033391118333911833333
            38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
            911118111118333338F3338F833338F3000033333911111111833333338F3338
            3333F8330000333333911111183333333338F333333F83330000333333311111
            8333333333338F3333383333000033333339111183333333333338F333833333
            00003333339111118333333333333833338F3333000033333911181118333333
            33338333338F333300003333911183911183333333383338F338F33300003333
            9118333911183333338F33838F338F33000033333913333391113333338FF833
            38F338F300003333333333333919333333388333338FFF830000333333333333
            3333333333333333333888330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
      end
      object Panel4: TPanel
        Left = 0
        Top = 78
        Width = 713
        Height = 371
        Align = alTop
        TabOrder = 2
        object cxLabel1: TcxLabel
          Left = 1
          Top = 332
          Align = alBottom
          Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103' '#1101#1083#1077#1084#1077#1085#1090#1072
          ParentColor = False
          ParentFont = False
          Style.Color = clBtnFace
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clGray
          Style.Font.Height = -11
          Style.Font.Name = 'Tahoma'
          Style.Font.Style = []
          Style.IsFontAssigned = True
        end
        object cxDBLabel1: TcxDBLabel
          Left = 1
          Top = 349
          Align = alBottom
          DataBinding.DataField = 'DMTIMEENTER'
          DataBinding.DataSource = dsDate
          ParentFont = False
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clGreen
          Style.Font.Height = -16
          Style.Font.Name = 'Tahoma'
          Style.Font.Style = []
          Style.IsFontAssigned = True
          Height = 21
          Width = 711
        end
        object dbtl: TcxDBTreeList
          Left = 1
          Top = 1
          Width = 711
          Height = 331
          Align = alClient
          Bands = <
            item
            end>
          BufferedPaint = False
          DataController.DataSource = dlgDS
          DataController.ParentField = 'SDPARID'
          DataController.KeyField = 'SDID'
          DragMode = dmAutomatic
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = 'Tahoma'
          Font.Style = []
          LookAndFeel.Kind = lfOffice11
          LookAndFeel.NativeStyle = False
          LookAndFeel.SkinName = ''
          OptionsBehavior.ImmediateEditor = False
          OptionsBehavior.DragFocusing = True
          OptionsBehavior.ExpandOnDblClick = False
          OptionsBehavior.MultiSort = False
          OptionsData.Editing = False
          OptionsData.Deleting = False
          OptionsView.CellAutoHeight = True
          OptionsView.ColumnAutoWidth = True
          OptionsView.Headers = False
          ParentFont = False
          RootValue = 28
          Styles.Content = DMInv.cxData
          TabOrder = 2
          OnClick = dbtlClick
          OnCustomDrawCell = dbtlCustomDrawCell
          OnDataChanged = dbtlDataChanged
          OnDragDrop = dbtlDragDrop
          OnDragOver = dbtlDragOver
          object cxDBTreeList1cxDBTreeListColumn1: TcxDBTreeListColumn
            Styles.Content = DMInv.cxData
            Caption.Text = ' '
            DataBinding.FieldName = 'SDNAME'
            Width = 100
            Position.ColIndex = 0
            Position.RowIndex = 0
            Position.BandIndex = 0
            SortOrder = soAscending
          end
        end
      end
      object ToolBar1: TToolBar
        Left = 0
        Top = 457
        Width = 713
        Height = 34
        BorderWidth = 2
        EdgeInner = esNone
        EdgeOuter = esNone
        Enabled = False
        Images = DMInv.ilActive
        TabOrder = 3
        Transparent = True
        object ToolButton1: TToolButton
          Left = 0
          Top = 2
          Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1072#1076#1088#1077#1089#1072
          Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1072#1076#1088#1077#1089#1072
          ImageIndex = 30
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton1Click
        end
        object ToolButton2: TToolButton
          Left = 23
          Top = 2
          Caption = 'ToolButton3'
          ImageIndex = 29
          OnClick = ToolButton2Click
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 491
        Width = 713
        Height = 46
        Align = alTop
        TabOrder = 4
        TabStop = True
        Visible = False
        DesignSize = (
          713
          46)
        object BitBtn3: TBitBtn
          Left = 512
          Top = 10
          Width = 92
          Height = 25
          Anchors = [akTop, akRight]
          Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
          Default = True
          TabOrder = 1
          OnClick = BitBtn3Click
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333330000333333333333333333333333F33333333333
            00003333344333333333333333388F3333333333000033334224333333333333
            338338F3333333330000333422224333333333333833338F3333333300003342
            222224333333333383333338F3333333000034222A22224333333338F338F333
            8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
            33333338F83338F338F33333000033A33333A222433333338333338F338F3333
            0000333333333A222433333333333338F338F33300003333333333A222433333
            333333338F338F33000033333333333A222433333333333338F338F300003333
            33333333A222433333333333338F338F00003333333333333A22433333333333
            3338F38F000033333333333333A223333333333333338F830000333333333333
            333A333333333333333338330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
        object BitBtn4: TBitBtn
          Left = 616
          Top = 10
          Width = 89
          Height = 25
          Anchors = [akTop, akRight]
          Cancel = True
          Caption = #1054#1090#1084#1077#1085#1080#1090#1100
          TabOrder = 0
          OnClick = BitBtn4Click
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333333333000033338833333333333333333F333333333333
            0000333911833333983333333388F333333F3333000033391118333911833333
            38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
            911118111118333338F3338F833338F3000033333911111111833333338F3338
            3333F8330000333333911111183333333338F333333F83330000333333311111
            8333333333338F3333383333000033333339111183333333333338F333833333
            00003333339111118333333333333833338F3333000033333911181118333333
            33338333338F333300003333911183911183333333383338F338F33300003333
            9118333911183333338F33838F338F33000033333913333391113333338FF833
            38F338F300003333333333333919333333388333338FFF830000333333333333
            3333333333333333333888330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
        object edSDOPT: TcxTextEdit
          Left = 8
          Top = 11
          TabOrder = 2
          Width = 481
        end
      end
      object cxGrid2: TcxGrid
        Left = 0
        Top = 537
        Width = 713
        Height = 84
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        LookAndFeel.Kind = lfStandard
        object cxGridDBTableView2: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          FilterBox.Position = fpTop
          DataController.DataSource = dsFOPD
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Kind = skCount
              FieldName = 'pid'
            end>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.CellHints = True
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnFiltering = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Inserting = False
          OptionsView.NavigatorOffset = 10
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 4
          OptionsView.ColumnAutoWidth = True
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          Preview.Visible = True
          Styles.IncSearch = DMInv.cxKrasniyText
          Styles.Selection = DMInv.cxJoltiyFon
          Styles.Header = DMInv.cxSiniyText
          object cxGridDBTableView1RecId: TcxGridDBColumn
            DataBinding.FieldName = 'RecId'
            Visible = False
          end
          object cxGridDBTableView1sdname: TcxGridDBColumn
            Caption = #1057#1074#1086#1081#1089#1090#1074#1086
            DataBinding.FieldName = 'sdname'
            Options.Editing = False
            Width = 191
          end
          object cxGridDBTableView1cvalue: TcxGridDBColumn
            Caption = #1047#1085#1072#1095#1077#1085#1080#1077
            DataBinding.FieldName = 'cvalue'
            Width = 685
          end
        end
        object cxGridLevel2: TcxGridLevel
          GridView = cxGridDBTableView2
        end
      end
      object cxSplitter1: TcxSplitter
        Left = 0
        Top = 449
        Width = 713
        Height = 8
        HotZoneClassName = 'TcxMediaPlayer9Style'
        HotZone.SizePercent = 80
        AlignSplitter = salTop
        Control = Panel4
      end
    end
  end
  object Panel9: TPanel [4]
    Left = 721
    Top = 45
    Width = 679
    Height = 632
    Align = alClient
    BevelOuter = bvNone
    Caption = #1053#1077#1090' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
    TabOrder = 8
    object Panel10: TPanel
      Left = 0
      Top = 0
      Width = 679
      Height = 33
      Align = alTop
      TabOrder = 0
      DesignSize = (
        679
        33)
      object bEditD: TcxButton
        Left = 7
        Top = 4
        Width = 98
        Height = 25
        Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100
        Enabled = False
        TabOrder = 0
        OnClick = bEditDClick
        LookAndFeel.SkinName = 'Office2007Black'
      end
      object bSaveD: TcxButton
        Left = 451
        Top = 3
        Width = 98
        Height = 25
        Anchors = [akTop, akRight]
        Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1074' '#1041#1044
        Enabled = False
        TabOrder = 1
        OnClick = bSaveDClick
        LookAndFeel.SkinName = 'Office2007Black'
      end
      object bCancelD: TcxButton
        Left = 557
        Top = 3
        Width = 98
        Height = 25
        Anchors = [akTop, akRight]
        Caption = #1054#1090#1084#1077#1085#1072
        Enabled = False
        TabOrder = 2
        OnClick = bCancelDClick
        LookAndFeel.SkinName = 'Office2007Black'
      end
      object cxDBLabel2: TcxDBLabel
        Left = 144
        Top = 4
        DataBinding.DataField = 'SDNAME'
        DataBinding.DataSource = dlgDS
        ParentFont = False
        Properties.Alignment.Horz = taCenter
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        Height = 29
        Width = 297
        AnchorX = 293
      end
    end
    object Panel_Doljnost: TPanel
      Left = 0
      Top = 33
      Width = 679
      Height = 599
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object cxDBMemo1: TcxDBMemo
        Left = 8
        Top = 192
        DataBinding.DataField = 'DOLNOTE'
        DataBinding.DataSource = dsDoljnost
        ParentFont = False
        Properties.ScrollBars = ssVertical
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 0
        Height = 113
        Width = 201
      end
      object cxLabel2: TcxLabel
        Left = 8
        Top = 168
        Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clGray
        Style.Font.Height = -11
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
      end
      object cxDBDateEdit3: TcxDBDateEdit
        Left = 8
        Top = 136
        DataBinding.DataField = 'DOLDATEEND'
        DataBinding.DataSource = dsDoljnost
        ParentFont = False
        Properties.ReadOnly = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 2
        Width = 113
      end
      object cxLabel3: TcxLabel
        Left = 8
        Top = 112
        Caption = #1044#1072#1090#1072' '#1086#1090#1084#1077#1085#1099' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clGray
        Style.Font.Height = -11
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
      end
      object cxDBDateEdit2: TcxDBDateEdit
        Left = 8
        Top = 80
        DataBinding.DataField = 'DOLDATEBEGIN'
        DataBinding.DataSource = dsDoljnost
        ParentFont = False
        Properties.ReadOnly = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 4
        Width = 113
      end
      object cxLabel4: TcxLabel
        Left = 8
        Top = 56
        Caption = #1044#1072#1090#1072' '#1074#1074#1077#1076#1077#1085#1080#1103' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clGray
        Style.Font.Height = -11
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
      end
      object cxDBTextEdit1: TcxDBTextEdit
        Left = 248
        Top = 80
        DataBinding.DataField = 'DOLMAXKOL'
        DataBinding.DataSource = dsDoljnost
        TabOrder = 6
        Width = 121
      end
      object cxLabel5: TcxLabel
        Left = 248
        Top = 56
        Caption = #1052#1072#1082#1089'. '#1082#1086#1083'. '#1095#1077#1083#1086#1074#1077#1082
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clGray
        Style.Font.Height = -11
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
      end
      object cxLabel6: TcxLabel
        Left = 248
        Top = 168
        Caption = #1054#1089#1085#1086#1074#1085#1099#1077' '#1086#1073#1103#1079#1072#1085#1085#1086#1089#1090#1080
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clGray
        Style.Font.Height = -11
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
      end
      object cxDBMemo2: TcxDBMemo
        Left = 248
        Top = 192
        DataBinding.DataField = 'DOLOSNOBYAZ'
        DataBinding.DataSource = dsDoljnost
        ParentFont = False
        Properties.ScrollBars = ssVertical
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 9
        Height = 113
        Width = 201
      end
      object dbgDF: TcxGrid
        Left = 0
        Top = 354
        Width = 679
        Height = 245
        Align = alBottom
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 10
        LookAndFeel.Kind = lfStandard
        object tvDF: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Enabled = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          FilterBox.CustomizeDialog = False
          FilterBox.Visible = fvNever
          DataController.DataSource = dsDF
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'DFAMOUNT'
              Column = tvDFDFAMOUNT
            end
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'DFAMOUNT_DOPL'
              Column = tvDFDFAMOUNT_DOPL
            end
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'SUM_VYPL'
              Column = tvDFSUM_VYPL
            end>
          DataController.Summary.SummaryGroups = <>
          DataController.Summary.Options = [soNullIgnore]
          OptionsBehavior.CellHints = True
          OptionsBehavior.FocusFirstCellOnNewRecord = True
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnFiltering = False
          OptionsCustomize.ColumnGrouping = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.NavigatorOffset = 5
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.ExpandButtonsForEmptyDetails = False
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.HeaderEndEllipsis = True
          OptionsView.Indicator = True
          OptionsView.ShowColumnFilterButtons = sfbAlways
          Styles.Content = DMInv.cxData
          Styles.IncSearch = DMInv.cxGreenText
          Styles.Header = DMInv.cxSiniyText
          object tvDFDFAMOUNT: TcxGridDBColumn
            Caption = #1053#1072#1095#1080#1089#1083'.'
            DataBinding.FieldName = 'DFAMOUNT'
            Width = 63
          end
          object tvDFDFAMOUNT_DOPL: TcxGridDBColumn
            Caption = #1044#1086#1087#1083'.'
            DataBinding.FieldName = 'DFAMOUNT_DOPL'
            Width = 108
          end
          object tvDFSUM_VYPL: TcxGridDBColumn
            Caption = #1057#1091#1084#1084#1072' '#1085#1072#1095#1080#1089#1083'.'
            DataBinding.FieldName = 'SUM_VYPL'
            Width = 108
          end
          object tvDFDFADATEBEGIN: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
            DataBinding.FieldName = 'DFADATEBEGIN'
            Width = 71
          end
          object tvDFDFADATEEND: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
            DataBinding.FieldName = 'DFADATEEND'
            Width = 90
          end
          object tvDFDFNOTE: TcxGridDBColumn
            Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
            DataBinding.FieldName = 'DFNOTE'
            Width = 72
          end
          object tvDFDFTIMEENTER: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'.'
            DataBinding.FieldName = 'DFTIMEENTER'
            Width = 63
          end
          object tvDFDFUSERENTER: TcxGridDBColumn
            Caption = #1040#1074#1090#1086#1088
            DataBinding.FieldName = 'DFUSERENTER'
            Width = 37
          end
          object tvDFDFTIMEEDIT: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090#1080#1088'.'
            DataBinding.FieldName = 'DFTIMEEDIT'
            Width = 89
          end
          object tvDFDFUSEREDIT: TcxGridDBColumn
            Caption = #1056#1077#1076#1072#1082#1090#1086#1088
            DataBinding.FieldName = 'DFUSEREDIT'
            Width = 43
          end
        end
        object cxGridLevel1: TcxGridLevel
          GridView = tvDF
        end
      end
      object dxBarDockControl1: TdxBarDockControl
        Left = 0
        Top = 328
        Width = 679
        Height = 26
        Align = dalBottom
        BarManager = dxBarManager1
      end
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qSD
    OnDataChange = dlgDSDataChange
    Left = 80
    Top = 104
  end
  object qType: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterOpen = qTypeAfterOpen
    SQL.Strings = (
      'SELECT SD.SDID, SD.SDNAME'
      '  FROM SYS_DIC SD'
      ' WHERE SD.SDID = 28'
      'union'
      'SELECT SD.SDID, SD.SDNAME'
      '  FROM SYS_DIC SD'
      ' WHERE SD.SDPARID = 28'
      ' ORDER BY 2')
    Left = 344
    object qTypeSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qTypeSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 255
    end
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qSDAfterInsert
    AfterOpen = qSDAfterOpen
    AfterScroll = qSDAfterScroll
    BeforeOpen = qSDBeforeOpen
    CachedUpdates = True
    SQL.Strings = (
      'SELECT t1.sdparid, t1.sdid, t1.sdname, t1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, SDISDELETE)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, sd.SDISDELETE FROM' +
        ' SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDPARID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, sd1.SDISDELETE'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID, SDISDELETE FROM tree t'
      ') AS t1'
      'WHERE t1.SDISDELETE = 0'
      'UNION'
      'SELECT SD.SDPARID, SD.SDID, SD.SDNAME, SD.SDISDELETE'
      'FROM SYS_DIC SD'
      'WHERE SD.SDID = :SDPARID AND SD.SDISDELETE = 0'
      'order by 1'
      ''
      ''
      '')
    UpdateObject = quSD
    GeneratorField.Field = 'SDID'
    GeneratorField.Generator = 'GEN_SYS_DIC'
    Left = 120
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SDPARID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SDPARID'
        ParamType = ptUnknown
      end>
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2303
    end
    object qSDSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object quSD: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  SDID,'
      '  SDPARID,'
      '  SDNAME'
      'from SYS_DIC '
      'where'
      '  SDID = :SDID')
    ModifySQL.Strings = (
      'update SYS_DIC'
      'set'
      '  SDID = :SDID,'
      '  SDNAME = trim(leading from :SDNAME),'
      '  SDPARID = :SDPARID'
      'where'
      '  SDID = :OLD_SDID')
    InsertSQL.Strings = (
      'insert into SYS_DIC'
      '  (SDID, SDNAME, SDPARID)'
      'values'
      '  (:SDID, trim(leading from :SDNAME), :SDPARID)')
    DeleteSQL.Strings = (
      'update SYS_DIC'
      'set'
      '  sdisdelete = 1'
      'where'
      '  SDID = :OLD_SDID')
    Left = 160
    Top = 88
  end
  object dsFOPD2: TDataSource
    DataSet = memFOPD2
    Left = 320
    Top = 264
  end
  object memFOPD2: TdxMemData
    Indexes = <>
    SortOptions = []
    OnFilterRecord = memFOPD2FilterRecord
    Left = 350
    Top = 264
    object memFOPD2sdid: TIntegerField
      FieldName = 'sdid'
    end
    object memFOPD2sdidopt: TIntegerField
      FieldName = 'sdid_opt'
    end
    object memFOPD2sdname: TStringField
      FieldName = 'sdname'
      Size = 255
    end
  end
  object qSelectInf2: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'select so.sdid, so.sdid_opt, sd.sdname'
      'from SYS_DIC_OPT so'
      '    left join sys_dic sd on sd.sdid=so.sdid_opt'
      'where so.SOISDELETE is null')
    GeneratorField.Field = 'SDID'
    Left = 392
    Top = 264
    object qSelectInf2SDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"SYS_DIC_OPT"."SDID"'
    end
    object qSelectInf2SDID_OPT: TIntegerField
      FieldName = 'SDID_OPT'
      Origin = '"SYS_DIC_OPT"."SDID_OPT"'
    end
    object qSelectInf2SDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object dsFOPD: TDataSource
    DataSet = memFOPD
    Left = 32
    Top = 448
  end
  object memFOPD: TdxMemData
    Indexes = <>
    SortOptions = []
    OnFilterRecord = memFOPDFilterRecord
    Left = 62
    Top = 448
    object memFOPDsdid_opt: TIntegerField
      FieldName = 'sdid_opt'
    end
    object memFOPDsdname: TStringField
      FieldName = 'sdname'
      Size = 255
    end
    object memFOPDidtype: TIntegerField
      FieldName = 'idtype'
    end
    object memFOPDcvalue: TStringField
      FieldName = 'cvalue'
      Size = 255
    end
  end
  object qSelectInf: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'select so.sdid_opt,sd.sdname,sd2.sdid as idtype,sv.cvalue'
      'from SYS_DIC_OPT so'
      '    left join sys_dic sd on sd.sdid=so.sdid_opt'
      '    left join sys_dic sd2 on sd2.sdparid=so.sdid'
      
        '    left join sys_dic_val sv on sv.sdid=sd2.sdid and sv.sdid_opt' +
        '=sd.sdid'
      'where so.SOISDELETE is null')
    GeneratorField.Field = 'SDID'
    Left = 96
    Top = 448
    object qSelectInfSDID_OPT: TIntegerField
      FieldName = 'SDID_OPT'
      Origin = '"SYS_DIC_OPT"."SDID_OPT"'
    end
    object qSelectInfSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qSelectInfIDTYPE: TIntegerField
      FieldName = 'IDTYPE'
      Origin = '"SYS_DIC"."SDID"'
    end
    object qSelectInfCVALUE: TIBStringField
      FieldName = 'CVALUE'
      Origin = '"SYS_DIC_VAL"."CVALUE"'
      Size = 255
    end
  end
  object dsDate: TDataSource
    DataSet = qdate
    Left = 512
    Top = 184
  end
  object qdate: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qSDAfterInsert
    AfterOpen = qSDAfterOpen
    AfterScroll = qSDAfterScroll
    BeforeOpen = qSDBeforeOpen
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT DM.*'
      'FROM DOLJNOST_MISC DM'
      'where dm.sdid = :sdid')
    UpdateObject = quDate
    Left = 552
    Top = 184
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sdid'
        ParamType = ptUnknown
      end>
    object qdateDMID: TIntegerField
      FieldName = 'DMID'
      Origin = '"DOLJNOST_MISC"."DMID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qdateSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"DOLJNOST_MISC"."SDID"'
    end
    object qdateDMDATEBEGIN: TDateField
      FieldName = 'DMDATEBEGIN'
      Origin = '"DOLJNOST_MISC"."DMDATEBEGIN"'
    end
    object qdateDMDATEEND: TDateField
      FieldName = 'DMDATEEND'
      Origin = '"DOLJNOST_MISC"."DMDATEEND"'
    end
    object qdateDMTIMEENTER: TDateTimeField
      FieldName = 'DMTIMEENTER'
      Origin = '"DOLJNOST_MISC"."DMTIMEENTER"'
    end
    object qdateDMUSERENTER: TIBStringField
      FieldName = 'DMUSERENTER'
      Origin = '"DOLJNOST_MISC"."DMUSERENTER"'
      Size = 40
    end
    object qdateDMTIMEEDIT: TDateTimeField
      FieldName = 'DMTIMEEDIT'
      Origin = '"DOLJNOST_MISC"."DMTIMEEDIT"'
    end
    object qdateDMUSEREDIT: TIBStringField
      FieldName = 'DMUSEREDIT'
      Origin = '"DOLJNOST_MISC"."DMUSEREDIT"'
      Size = 40
    end
  end
  object quDate: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DMID,'
      '  SDID,'
      '  DMDATEBEGIN,'
      '  DMDATEEND,'
      '  DMTIMEENTER,'
      '  DMUSERENTER,'
      '  DMTIMEEDIT,'
      '  DMUSEREDIT'
      'from DOLJNOST_MISC '
      'where'
      '  DMID = :DMID')
    ModifySQL.Strings = (
      'update DOLJNOST_MISC'
      'set'
      '  DMDATEBEGIN = :DMDATEBEGIN,'
      '  DMDATEEND = :DMDATEEND,'
      '  DMID = :DMID,'
      '  DMTIMEEDIT = :DMTIMEEDIT,'
      '  DMTIMEENTER = :DMTIMEENTER,'
      '  DMUSEREDIT = :DMUSEREDIT,'
      '  DMUSERENTER = :DMUSERENTER,'
      '  SDID = :SDID'
      'where'
      '  DMID = :OLD_DMID')
    InsertSQL.Strings = (
      'null;')
    DeleteSQL.Strings = (
      'null;')
    Left = 592
    Top = 184
  end
  object cxPropertiesStore1: TcxPropertiesStore
    Components = <
      item
        Component = Panel_Doljnost
        Properties.Strings = (
          'Height'
          'Left'
          'Top'
          'Width')
      end
      item
        Component = Panel_SD
        Properties.Strings = (
          'Height'
          'Left'
          'Top'
          'Width')
      end
      item
        Component = Panel4
        Properties.Strings = (
          'Height'
          'Left'
          'Top'
          'Width')
      end>
    StorageName = #1048#1057' '#1054#1083#1080#1084#1087#1080#1082'_PS_fmAddEditDoljnost'
    StorageType = stRegistry
    Left = 320
    Top = 192
  end
  object qCheckPeople: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT FIRST 1 D.PID'
      'FROM DOLJNOST D'
      'WHERE d.SDID = :sdid')
    Left = 552
    Top = 285
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sdid'
        ParamType = ptUnknown
      end>
    object qCheckPeoplePID: TIntegerField
      FieldName = 'PID'
      Origin = '"DOLJNOST"."PID"'
    end
  end
  object qDoljn: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDoljnAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT D.*, SD.SDNAME'
      'FROM DOLJNOST D'
      'INNER JOIN SYS_DIC SD ON sd.SDID = d.SDID'
      'WHERE D.SDID = :sdid and d.dolisdelete is null'
      '')
    UpdateObject = quDoljn
    GeneratorField.Field = 'DOLID'
    GeneratorField.Generator = 'GEN_DOLJNOST_ID'
    Left = 760
    Top = 69
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sdid'
        ParamType = ptUnknown
      end>
    object qDoljnDOLID: TIntegerField
      FieldName = 'DOLID'
      Origin = '"DOLJNOST"."DOLID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDoljnPID: TIntegerField
      FieldName = 'PID'
      Origin = '"DOLJNOST"."PID"'
    end
    object qDoljnSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"DOLJNOST"."SDID"'
    end
    object qDoljnDOLDATEBEGIN: TDateField
      FieldName = 'DOLDATEBEGIN'
      Origin = '"DOLJNOST"."DOLDATEBEGIN"'
    end
    object qDoljnDOLDATEEND: TDateField
      FieldName = 'DOLDATEEND'
      Origin = '"DOLJNOST"."DOLDATEEND"'
    end
    object qDoljnDOLNOTE: TIBStringField
      FieldName = 'DOLNOTE'
      Origin = '"DOLJNOST"."DOLNOTE"'
      Size = 255
    end
    object qDoljnDOLTIMEENTER: TDateTimeField
      FieldName = 'DOLTIMEENTER'
      Origin = '"DOLJNOST"."DOLTIMEENTER"'
    end
    object qDoljnDOLUSERENTER: TIBStringField
      FieldName = 'DOLUSERENTER'
      Origin = '"DOLJNOST"."DOLUSERENTER"'
      Size = 40
    end
    object qDoljnDOLTIMEEDIT: TDateTimeField
      FieldName = 'DOLTIMEEDIT'
      Origin = '"DOLJNOST"."DOLTIMEEDIT"'
    end
    object qDoljnDOLUSEREDIT: TIBStringField
      FieldName = 'DOLUSEREDIT'
      Origin = '"DOLJNOST"."DOLUSEREDIT"'
      Size = 80
    end
    object qDoljnDOLISDELETE: TIntegerField
      FieldName = 'DOLISDELETE'
      Origin = '"DOLJNOST"."DOLISDELETE"'
    end
    object qDoljnDOLISPROJIVANIE: TIntegerField
      FieldName = 'DOLISPROJIVANIE'
      Origin = '"DOLJNOST"."DOLISPROJIVANIE"'
    end
    object qDoljnDOLISENGLISH: TIntegerField
      FieldName = 'DOLISENGLISH'
      Origin = '"DOLJNOST"."DOLISENGLISH"'
    end
    object qDoljnDOLMAXKOL: TIntegerField
      FieldName = 'DOLMAXKOL'
      Origin = '"DOLJNOST"."DOLMAXKOL"'
    end
    object qDoljnDOLOSNOBYAZ: TIBStringField
      FieldName = 'DOLOSNOBYAZ'
      Origin = '"DOLJNOST"."DOLOSNOBYAZ"'
      Size = 2048
    end
    object qDoljnSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object quDoljn: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DOLID,'
      '  PID,'
      '  SDID,'
      '  DOLDATEBEGIN,'
      '  DOLDATEEND,'
      '  DOLNOTE,'
      '  DOLTIMEENTER,'
      '  DOLUSERENTER,'
      '  DOLTIMEEDIT,'
      '  DOLUSEREDIT,'
      '  DOLISDELETE,'
      '  DOLISPROJIVANIE,'
      '  DOLISENGLISH,'
      '  DOLMAXKOL,'
      '  DOLOSNOBYAZ,'
      '  SDNAME'
      'from DOLJNOST '
      'where'
      '  DOLID = :DOLID')
    ModifySQL.Strings = (
      'update DOLJNOST'
      'set'
      '  DOLDATEBEGIN = :DOLDATEBEGIN,'
      '  DOLDATEEND = :DOLDATEEND,'
      '  DOLID = :DOLID,'
      '  DOLISDELETE = :DOLISDELETE,'
      '  DOLISENGLISH = :DOLISENGLISH,'
      '  DOLISPROJIVANIE = :DOLISPROJIVANIE,'
      '  DOLMAXKOL = :DOLMAXKOL,'
      '  DOLNOTE = :DOLNOTE,'
      '  DOLOSNOBYAZ = :DOLOSNOBYAZ,'
      '  SDID = :SDID'
      'where'
      '  DOLID = :OLD_DOLID')
    InsertSQL.Strings = (
      'insert into DOLJNOST'
      
        '  (DOLDATEBEGIN, DOLDATEEND, DOLID, DOLISDELETE, DOLISENGLISH, D' +
        'OLISPROJIVANIE, '
      '   DOLMAXKOL, DOLNOTE, DOLOSNOBYAZ, SDID)'
      'values'
      
        '  (:DOLDATEBEGIN, :DOLDATEEND, :DOLID, :DOLISDELETE, :DOLISENGLI' +
        'SH, :DOLISPROJIVANIE, '
      '   :DOLMAXKOL, :DOLNOTE, :DOLOSNOBYAZ, :SDID)')
    DeleteSQL.Strings = (
      'update DOLJNOST'
      'set'
      '  DOLISDELETE = 1'
      'where'
      '  DOLID = :OLD_DOLID')
    Left = 800
    Top = 69
  end
  object dsDoljnost: TDataSource
    DataSet = qDoljn
    Left = 761
    Top = 101
  end
  object qDF: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDFAfterInsert
    CachedUpdates = True
    DataSource = dsDoljnost
    SQL.Strings = (
      
        'SELECT DF.*, (COALESCE(DF.DFAMOUNT, 0) + COALESCE(DF.DFAMOUNT_do' +
        'pl,0)) AS sum_vypl'
      'FROM DOLJNOST_FINANCE DF'
      'WHERE DF.dolid = :dolid AND df.DFISDELETE IS NULL')
    UpdateObject = quDF
    GeneratorField.Field = 'DFID'
    GeneratorField.Generator = 'GEN_DOLJNOST_FINANCE_ID'
    Left = 1256
    Top = 109
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'dolid'
        ParamType = ptUnknown
      end>
    object qDFDFID: TIntegerField
      FieldName = 'DFID'
      Origin = '"DOLJNOST_FINANCE"."DFID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDFDFAMOUNT: TIBBCDField
      FieldName = 'DFAMOUNT'
      Origin = '"DOLJNOST_FINANCE"."DFAMOUNT"'
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qDFDFAMOUNT_DOPL: TIBBCDField
      FieldName = 'DFAMOUNT_DOPL'
      Origin = '"DOLJNOST_FINANCE"."DFAMOUNT_DOPL"'
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qDFDFADATEBEGIN: TDateField
      FieldName = 'DFADATEBEGIN'
      Origin = '"DOLJNOST_FINANCE"."DFADATEBEGIN"'
    end
    object qDFDFADATEEND: TDateField
      FieldName = 'DFADATEEND'
      Origin = '"DOLJNOST_FINANCE"."DFADATEEND"'
    end
    object qDFDFNOTE: TIBStringField
      FieldName = 'DFNOTE'
      Origin = '"DOLJNOST_FINANCE"."DFNOTE"'
      Size = 255
    end
    object qDFDFTIMEENTER: TDateTimeField
      FieldName = 'DFTIMEENTER'
      Origin = '"DOLJNOST_FINANCE"."DFTIMEENTER"'
    end
    object qDFDFUSERENTER: TIBStringField
      FieldName = 'DFUSERENTER'
      Origin = '"DOLJNOST_FINANCE"."DFUSERENTER"'
      Size = 40
    end
    object qDFDFTIMEEDIT: TDateTimeField
      FieldName = 'DFTIMEEDIT'
      Origin = '"DOLJNOST_FINANCE"."DFTIMEEDIT"'
    end
    object qDFDFUSEREDIT: TIBStringField
      FieldName = 'DFUSEREDIT'
      Origin = '"DOLJNOST_FINANCE"."DFUSEREDIT"'
      Size = 40
    end
    object qDFDFISDELETE: TIntegerField
      FieldName = 'DFISDELETE'
      Origin = '"DOLJNOST_FINANCE"."DFISDELETE"'
    end
    object qDFDOLID: TIntegerField
      FieldName = 'DOLID'
      Origin = '"DOLJNOST_FINANCE"."DOLID"'
    end
    object qDFSUM_VYPL: TIBBCDField
      FieldName = 'SUM_VYPL'
      ProviderFlags = []
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
  end
  object dsDF: TDataSource
    DataSet = qDF
    Left = 1216
    Top = 109
  end
  object quDF: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DFID,'
      '  DOLID,'
      '  DFAMOUNT,'
      '  DFADATEBEGIN,'
      '  DFADATEEND,'
      '  DFNOTE,'
      '  DFTIMEENTER,'
      '  DFUSERENTER,'
      '  DFTIMEEDIT,'
      '  DFUSEREDIT,'
      '  DFISDELETE,'
      '  DFAMOUNT_DOPL,'
      '  SUM_VYPL'
      'from DOLJNOST_FINANCE '
      'where'
      '  DFID = :DFID')
    ModifySQL.Strings = (
      'update DOLJNOST_FINANCE'
      'set'
      '  DFADATEBEGIN = :DFADATEBEGIN,'
      '  DFADATEEND = :DFADATEEND,'
      '  DFAMOUNT = :DFAMOUNT,'
      '  DFAMOUNT_DOPL = :DFAMOUNT_DOPL,'
      '  DFID = :DFID,'
      '  DFISDELETE = :DFISDELETE,'
      '  DFNOTE = :DFNOTE,'
      '  DOLID = :DOLID'
      'where'
      '  DFID = :OLD_DFID')
    InsertSQL.Strings = (
      'insert into DOLJNOST_FINANCE'
      
        '  (DFADATEBEGIN, DFADATEEND, DFAMOUNT, DFAMOUNT_DOPL, DFID, DFIS' +
        'DELETE, '
      '   DFNOTE, DOLID)'
      'values'
      
        '  (:DFADATEBEGIN, :DFADATEEND, :DFAMOUNT, :DFAMOUNT_DOPL, :DFID,' +
        ' :DFISDELETE, '
      '   :DFNOTE, :DOLID)')
    DeleteSQL.Strings = (
      'update DOLJNOST_FINANCE'
      'set'
      '  DFISDELETE = 1'
      'where'
      '  DFID = :OLD_DFID')
    Left = 1296
    Top = 109
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    LookAndFeel.SkinName = ''
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    PopupMenuLinks = <>
    Style = bmsUseLookAndFeel
    UseSystemFont = True
    Left = 432
    Top = 187
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 2'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 154
      FloatTop = 115
      FloatClientWidth = 51
      FloatClientHeight = 44
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton4'
        end
        item
          Visible = True
          ItemName = 'tbEditK'
        end
        item
          Visible = True
          ItemName = 'dxBarButton6'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object bbAddEditDoljnost: TdxBarButton
      Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1076#1086#1083#1078#1085'.'
      Category = 0
      Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1076#1086#1083#1078#1085#1086#1089#1090#1077#1081
      Visible = ivAlways
      ImageIndex = 50
      PaintStyle = psCaptionGlyph
    end
    object beSelectDoljnost: TcxBarEditItem
      Caption = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Category = 0
      Hint = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081')'
      Visible = ivAlways
      ShowCaption = True
      Width = 300
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
        end>
      Properties.IncrementalSearch = False
      Properties.ReadOnly = True
      InternalEditValue = ''
    end
    object cxBarEditItem1: TcxBarEditItem
      Caption = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Category = 0
      Hint = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxLabelProperties'
    end
    object cxBarEditItem2: TcxBarEditItem
      Caption = #1053#1072' '#1076#1072#1090#1091':'
      Category = 0
      Hint = #1053#1072' '#1076#1072#1090#1091':'
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxLabelProperties'
    end
    object bDate: TcxBarEditItem
      Caption = #1053#1072' '#1076#1072#1090#1091':'
      Category = 0
      Hint = #1044#1072#1090#1072' '#1085#1072#1093#1086#1078#1076#1077#1085#1080#1103' '#1074' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
      Visible = ivAlways
      ShowCaption = True
      Width = 150
      PropertiesClassName = 'TcxDateEditProperties'
      InternalEditValue = 40921d
    end
    object bbsearch: TdxBarButton
      Caption = #1048#1089#1082#1072#1090#1100
      Category = 0
      Hint = #1048#1089#1082#1072#1090#1100
      Visible = ivAlways
      ImageIndex = 53
      PaintStyle = psCaptionGlyph
    end
    object dxBarButton2: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Hint = #1069#1082#1089#1087#1086#1088#1090' '#1074' Excel'
      Visible = ivAlways
      ImageIndex = 48
    end
    object dxBarButton3: TdxBarButton
      Align = iaRight
      Caption = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Category = 0
      Hint = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 57
      OnClick = dxBarButton4Click
    end
    object tbEditK: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
      OnClick = tbEditKClick
    end
    object dxBarButton6: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 46
      OnClick = dxBarButton6Click
    end
    object dxBarButton5: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 57
    end
    object dxBarButton7: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton8: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 46
    end
    object rgDopl: TcxBarEditItem
      Caption = 'New Item'
      Category = 0
      Visible = ivNever
      Width = 100
      PropertiesClassName = 'TcxRadioGroupProperties'
      Properties.Columns = 3
      Properties.DefaultValue = 2
      Properties.Items = <
        item
          Caption = #1053#1072#1095#1080#1089#1083#1077#1085#1080#1103
          Value = 0
        end
        item
          Caption = #1044#1086#1087#1083#1072#1090#1099
          Value = 1
        end
        item
          Caption = #1042#1089#1077
          Value = 2
        end>
      InternalEditValue = 2
    end
    object dxBarSubItem1: TdxBarSubItem
      Caption = 'New SubItem'
      Category = 0
      Visible = ivAlways
      ItemLinks = <>
    end
    object bbAddPDoljnost: TdxBarButton
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1076#1086#1083#1078#1085'.'
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1076#1086#1083#1078#1085'.'
      Visible = ivAlways
      DropDownEnabled = False
      ImageIndex = 40
      PaintStyle = psCaptionGlyph
    end
    object bbRefresh: TdxBarButton
      Caption = #1054#1073#1085#1086#1074#1080#1090#1100' '
      Category = 0
      Hint = #1054#1073#1085#1086#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 55
      PaintStyle = psCaptionGlyph
    end
    object bbService: TdxBarButton
      Category = 0
      Visible = ivNever
      ImageIndex = 60
    end
  end
end
